home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PCMania 40
/
PCMania CD40_1.iso
/
render40
/
oca_a
/
reina.inc
< prev
next >
Wrap
Text File
|
1995-10-05
|
780b
|
28 lines
#include "shapes.inc"
#declare Base=union{
intersection{
quadric{Ellipsoid scale <2.3 2.3 2.3>}
plane{<0 -1 0> 0}
}
quadric{Ellipsoid scale <2 .5 2> translate <0 2 0>}
}
#declare Cuerpo=intersection{
plane{<0 1 0> 4}
quadric{Hyperboloid_Y scale <.5 2 .5> translate <0 5 0>}
plane{<0 -1 0> 1}
}
#declare Cabeza=union{
quadric{Ellipsoid scale <1.3 .4 1.3> translate <0 6.1 0>}
quadric{Ellipsoid scale <1.1 .4 1.1> translate <0 6.7 0>}
quadric{Ellipsoid scale <.9 .4 .9> translate <0 7.3 0>}
intersection{Cone_Y scale <1.1 1.5 1.1> rotate<180 0 0> translate <0 7.6 0>}
quadric{Ellipsoid scale <.9 .9 .9> translate<0 9 0>}
}
#declare Reina=union{
union{Base}
intersection{Cuerpo translate <0 2 0>}
union{Cabeza}
}